on CREA_NUOVA_PALETTA
  setwindow topwindow()
  put the rect of wd "PALPOS" into p_rect
  new invisible window
  set the name of wd 6 of this proj to "PALDIM"
  set the rect of wd 6 of this proj to p_rect
  set the backsize of bg 1 of wd 6 of this proj to 120,40
  choose pointer tool
  copy cd grc "base" of wd "PALPOS"
  open invisible wd 6
  choose pointer tool
  paste
  choose draw text tool
  drag from 0,0 to 120,12
  set the fillFore of last cd grc to 256
  set the fillPat of last cd grc to 12
  set the textData of last cd grc to "DIM"
  set the textFont of last cd grc to "Geneva"
  set the textSize of last cd grc to 9
  set the textColor of last cd grc to 2
  set textAlign of last cd grc to center
  set the rect of last cd grc to 0,0,121,12
  set the loc of last cd grc to 59,4
  choose pointer tool
  copy card fld "f1" of wd "PALPOS"
  open invisible wd 6
  choose pointer tool
  paste
  set the name of card fld 1 to "f1"
  set the style of wd 6 of this proj to palette
  set the closeBox of wd 6 of this proj to true
end CREA_NUOVA_PALETTA

